home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr44
/
fs35.zip
/
FAST.CH
< prev
next >
Wrap
Text File
|
1995-01-11
|
3KB
|
65 lines
// Fast header file
// (C) 1992-95 Manu Roibal
#ifndef _FAST_CH
#define _FAST_CH
#command DEFAULT <Var1> = <DefValue1> [, <Var2> = <DefValue2> ] => ;
<Var1> = if( <Var1> == NIL, <DefValue1>, <Var1> ) ;;
[<Var2> = if( <Var2> == NIL, <DefValue2>, <Var2> );]
#define COM_NONE 0
#define COM_EVEN 1
#define COM_ODD 2
#define COM_ZERO 3
#define COM_ONE 4
#command @ <row>, <col> [SAY <sayxpr>] ;
GET <var> ;
[COLOR <color>] ;
[WHEN <when>] ;
[VALID <valid>] ;
[SEND <msg>] ;
WITH RADIOBUTTONS <buttons> ;
[<horiz: HORIZONTAL>] ;
[<nobox: NOBOX>] ;
[<double: DOUBLE>] ;
;
=> setpos( <row>, <col> ) ;
; dispbegin() ;
; aadd( GetList, _GET_( <var>, <(var)>,"9", <{valid}>, <{when}> ) ) ;
[; atail(GetList):colorDisp(<color>)] ;
[; atail(GetList):<msg>] ;
; dispout(" ") ;
; RadioNew( atail(getlist), <{when}>, ;
<row>, <col>, <sayxpr>, <var>, ;
<buttons>, <.nobox.>, <.double.>, <.horiz.> ) ;
; atail(getlist):reader := { |get| RadioReader( get, ;
<.nobox.>, <.horiz.>, ;
<sayxpr> ) } ;
; dispend()
#command READ ;
=> ReadModal(GetList) ;
; GetList := {} ;
; KillButton()
#command CLEAR GETS ;
=> __KillRead() ;
; GetList := {} ;
; KillButton()
#define MAX_SB_VOLUME 15
#define MIN_SB_VOLUME 0
#endif